home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2002 #11 / Amiga Plus CD - 2002 - No. 11.iso / Tools / Freeware / DiskMaster / Rexx / DMVirusCheck.rexx < prev    next >
Encoding:
OS/2 REXX Batch file  |  2002-10-27  |  904 b   |  47 lines
  1. /* $VER: DMVirusCheck.rexx 1.0 (31.5.98) by J. Tierney
  2.  
  3.   DiskMaster II Virus Check  v1.0
  4.   5/31/98  J. Tierney
  5.  
  6.   Purpose:  Scans the Source dir for virii using Virus Checker II.
  7.  
  8.   Usage:  Rexx REXX:DM2/DMVirusCheck.rexx
  9.  
  10.   Requires:  RexxReqTools.library
  11.              Virus Checker II
  12. */
  13.  
  14. OPTIONS RESULTS
  15.  
  16. who = ADDRESS()
  17.  
  18. 'STATUS P'
  19. scanme = result
  20.  
  21. IF ~SHOW('L', 'rexxreqtools.library') THEN DO
  22.   IF ~ADDLIB('rexxreqtools.library', 0, -30) THEN DO
  23.     SAY 'Could not open "rexxreqtools.library".'
  24.     EXIT 10
  25.   END
  26. END
  27.  
  28. ADDRESS 'Virus_CheckerII'
  29. 'SCAN' scanme
  30.  
  31. vn = vcheck.0.0
  32. IF vn > 0 THEN DO
  33.   lf = '0A'x
  34.   bt = '*** DANGER ***' || lf || vn 'virii found:'
  35.   DO i = 1 TO vn
  36.     bt = bt || lf || vcheck.i.1
  37.   END
  38.   END
  39. ELSE DO
  40.   bt = 'No virii found.'
  41. END
  42.  
  43. CALL RTEZREQUEST(bt, 'Okay', 'Virus Checker II', 'rt_pubscrname=' || who 'rt_reqpos=reqpos_centerscr')
  44.  
  45. CALL REMLIB('rexxreqtools.library')
  46.  
  47.